home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1995 January / macformat-020.iso / Demos / MF18 / Excel 5.0 Demo / Microsoft Excel 5.0 Demo / MS Mac Excel Demo / 00223.ls < prev    next >
Encoding:
Text File  |  1994-08-11  |  2.4 KB  |  120 lines
  1. on startMovie
  2.   global gDebug, gSection, gDemoName, gcountMax, gCountLoops
  3.   set gDebug to 0
  4.   set gSection to "START"
  5.   set gDemoName to "Excel"
  6.   set the keyDownScript to "whichKey"
  7.   set gcountMax to 150
  8.   set gCountLoops to 1
  9. end
  10.  
  11. on whichKey
  12.   global gVersion, gSection
  13.   cursor(200)
  14.   if the key = "1" then
  15.     set gSection to "ViewAll"
  16.     go("*ViewAll Transition")
  17.   end if
  18.   if the key = "2" then
  19.     set gSection to "EASY"
  20.     go("*EASY Transition")
  21.   end if
  22.   if the key = "3" then
  23.     set gSection to "EFFECTIVE"
  24.     go("*EFFECTIVE transition")
  25.   end if
  26.   if the key = "4" then
  27.     set gSection to "GREAT PART"
  28.     go("*Great Part Transition")
  29.   end if
  30.   if the key = "S" then
  31.     if gSection = "MENU" then
  32.       go("*start transition")
  33.     end if
  34.     go("*start")
  35.   end if
  36.   if the key = "s" then
  37.     if gSection = "MENU" then
  38.       go("*start transition")
  39.     end if
  40.     go("*start")
  41.   end if
  42.   if the key = numToChar(32) then
  43.     pause()
  44.   end if
  45.   if the key = "P" then
  46.     pause()
  47.   end if
  48.   if the key = "p" then
  49.     pause()
  50.   end if
  51.   if the key = numToChar(27) then
  52.     if gVersion = "Reseller" then
  53.       if gSection = "QUIT SEQUENCE" then
  54.         GoToOffice()
  55.       end if
  56.     end if
  57.     if gSection = "QUIT SEQUENCE" then
  58.       quit()
  59.     end if
  60.     if gSection = "GREAT PART" then
  61.       go("*Menu")
  62.     end if
  63.     if gSection = "START" then
  64.       go("*Menu")
  65.     end if
  66.     if gSection = "EASY" then
  67.       go("*Menu")
  68.     end if
  69.     if gSection = "VIEWALL" then
  70.       go("*Menu")
  71.     end if
  72.     if gSection = "EFFECTIVE" then
  73.       go("*Menu")
  74.     end if
  75.     if gSection = "MENU" then
  76.       go("*Quit Sequence")
  77.     end if
  78.   end if
  79.   if the key = RETURN then
  80.     if the pauseState = 1 then
  81.       continue()
  82.     end if
  83.   end if
  84.   if the key = "M" then
  85.     go("*Menu")
  86.   end if
  87.   if the key = "m" then
  88.     go("*Menu")
  89.   end if
  90.   if the key = TAB then
  91.     if the shiftDown then
  92.       if marker(0) < label("*Start Again") then
  93.         beep()
  94.         go("*start")
  95.       else
  96.         go(marker(-1))
  97.       end if
  98.     end if
  99.     if the shiftDown = 0 then
  100.       go(marker(1))
  101.     end if
  102.   end if
  103. end
  104.  
  105. on MainMenuTimeout
  106.   global gCountLoops, gVersion, gSection
  107.   set gCountLoops to 1
  108.   if gVersion = "Reseller" then
  109.     GoToOffice()
  110.   end if
  111.   if gVersion <> "Reseller" then
  112.     set gSection to "ViewAll"
  113.     go("*ViewAll Transition")
  114.   end if
  115. end
  116.  
  117. on GoToOffice
  118.   go("*menu", "MS Mac Office Demo")
  119. end
  120.